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by Glenn Archer 
Translation by Kerry Shetline 

Concentration is a game program for an IBIVI® PC with 6\sk drive, 
Color Graphics Adapter and 64K RAM. 

"Let's play Concentration]" Remember the television game show? Now, 
you can play this exciting game on your IBM PC. You also can challenge and 
hone your memory since this game, even in Level 1, is more difficult than 
either the television or the board version. 

The object of Concentration is to match all of the shapes on the board. The 
winner (in a two player game) is the player who matches the most shapes. 

The game first asks the number of players. In the one-player game, the ob- 
ject is to match all the shapes in the least number of moves. This also applies to 
the two-player game, but the players are trying to get a better score as well. 

After receiving the players' names, the computer asks for the difficulty 
level. Of the three levels. Level 1 is the easiest, with a small board and easy 
shapes to remember; Level 2 is a slightly larger board, with harder shapes; and 
Level 3 is the largest board, with shapes that look almost the same. 

After you choose the difficulty level, the computer randomly mixes and 
matches the shapes. It then draws the board, numbers and letters on the 
screen. These numbers and letters are the coordinates you enter for your 
guesses. Enter the row (numbers) first, and follow with the column (letters). 
You need not press RETURN after entering the letter. The shape in the cor- 
responding square appears and you enter the second shape. If you enter the 
same coordinate as your first guess, or the square entered has already been 
matched, it rejects the input and you must reenter your guess. 



If the two shapes don't match, they are displayed a httle longer and then 
covered up. Then you guess again or, in case of a two player game, the next 
player guesses. If the two shapes match, the player is awarded one point, and 
the two shapes are cleared from the screen. 

The game continues until all shapes have been matched. It then prints the 
winner (two player game) and the number of moves it took to complete the 
game. 



Variables 



A$, B$, PP$: Input variables. 

GR'yo(*): Graphics array. 

H$: Contains letter indicating 

rightmost column to input. 

J, Jl, K, Q: Loop variables. 

L: Used in shape mixing routine. 

LM: Number of columns on game 

board. 

LV: Level of difficulty. 

MV: Number of moves player(s) 

have taken. 

N: Number of shapes matched. 

N$(2): Array containing players' 

names. 

Nl : Shape number of player's first 

guess. 



N2: Shape number of player's sec- 
ond guess. 

NU: Shape number of player's 
guess. 

PP: Number of players. 
SC(2): Scores of player(s). 
SH(72): Array containing the 
number of each square's shape. 
ST(72): Flag array to test if a 
shape has already been matched. 
TO: Number of shapes to match. 

X, Y: X and Y coordinates of 
shape guessed. 

XI, Yl: X and Y coordinates of 
first shape guessed. 

X2, Y2: X and Y coordinates of 
second shape guessed. 



SS 5S SS S5 SS SS SS SS S5 5S SS 
SE 5S 

S3 FC Advsnced BASIC SS 

SE 'ConcentratiDn' SS 

ES fiuthor: Glenn Archer SS 
SS Translator; Kerry Shetiine SS 
SS Capynqht © 1983 SS 

SE SoftSide Publication;, Inc S3 
SS 33 

S3 ES SS SS SS SS 33 SS 33 S3 S3 

If you don't wish to type this program. It 
Is available on Issue #47 SoftSlde DV. 

Initialization. 

100 SCREEN 1,u;ClS:[!!H EH;72i ,STi72i ,GR^ 
(9:;DEF FNUFliX$i=CHRt(ASCiUJ+32»lASCa 
$i>9o);:BL$=STRINGi(40.33):L4$=STRiNGt;l 
59,32):BS$=CHRJ(29l:CSFt=CHRJ(22)^BS$:RA 
NDONIZE yfiLlHlDJiTIHEJ,3,2iHl00+VAL!RiS 
m$!T!MEI,2)) 

110 LOCATE .13:PRINT "COMCEKTRATlflfi"':PR 
INT.'PRINT Tfl3;19)"bv":FRINT:PRlNT TAB(!4 
) "Glenn Archer" 



Get the number of players. 

120 LOCATE 9:PR1NT "How ssr.v p'avers (1 

or 2) '■ "CSRJ; 

130 FFt=lNFUT$il):IF PH<"V OR PRt>"2" 

THEN 130 

140 PRINT P'J:PP=VALi?Ft; 

Get the players' names. 

150 FOR J=l TO FP 

ItO LOCATE 10+(2»J1. -PRINT "tlhat is pTaye 
r i"J;:LINE INPUT "'s naise? ";NI1J:IF LEN 
(NHtm THEM 16G 

170 IF LEHiNMi^e THEN SOSUS 1150:NJiJ) = 
NHi:NEa:G&TD 190 

ISO LOCATE I6:FRINT "P;ease enter a iasi 
iiuii! oF 7 letters- on!v":FOR f.:=l TG 2000:N 
EXT; LOCATE Ifc; PRINT BLti; LOCATE 1C<-I2«J) 
: PRINT BL$|:GGTG 160 

Get the difficulty level. 

:90 PR1NT;,pRINT:PRINT "Level of diHicu! 
ty 11-3! 7 "[:SR$; 

200 A«=INPUT$!l):IF Atf"!" OR Sti"3" THE 
N 200 J 
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210 PRINT Ai:LV=VHL!A5) 

Create random layout of shapes. 

220 CLS:LCCAI£ 10,9:FR!N" "Beneratifiq lie 

aril T'leciPi" 

230 LOCATE ;2,15:FRIHT "Fleaie wU" 

24C ON LV BGSUE 1030,1090,1100 

250 m LV GGSUB lOSO, i;)90, IICO 

Set up screen display. 

260 CLS;l!NE iO,0;-i279,159;,,S;LlfiE il9 
,l9i-!l59-60i(LV=21-9B«;LV=3l,l39i,,EF 
270 FDR d=19 TO 259 STEP 20:L1HE !J,19!- 
iJtl,139i,0,B:NEn:F0R J=!9 TO 139 STEP 
20:LIKE il9,J)-i259,J-l),0,B:NEn 
280 FDR l!=49 TO 54:1.0CATE 1,39:PRINT CHF 
l(X);:SET :304,0)-l311,7),ER;:FR:NT 3S$" 
":PUT i!C,27+20«(S-49!).GKi: NEXT 

290 FDR i=bj 10 ?!-3*(LV=2)-5*iLv'=3;:L0C 
ATE i,39:PRiNT CHRt:X/i:GET (304,0)-:311 
,7i,ER;':PRI5)T BS$" ":PUT ;27+20i!?-i5),l 
44;,BR;::NEn 

Main program loop for fiandling 
each player. 

300 FOR Q=l TO Pr 

310 LOCATE 22:FRINT N$M!"'5 score: 'Sd! 

);;IF PP=2 THEN LOCATE ,:i:PRiNT N{12;"^ 

5 bcors: '■SCi21 

Get player's first guess. 

320 LODAIE 23.1:FRniT BL$;:LOCATt 2:,l:P 
RINT NtiQ)', enter guess »1: MBOBOB 44 
0:Nl=NU;J!l=i(:y)=V:!F STiNUi^-l THEN GOBU 
B 5S0:L0CATE 23,I:FRIN7 Bl$;;SOTO 32u 
330 GOBOB 530 

Get player's second guess. 
340 LOCATE 23:PRINT BLJ;:LOCATE 23:PRINT 
N$IQ;", enter gue5s tt2: 'liGOSUB 440:IF 
N1=NU THEN 340 
350 N2=NU:X2=S:?2=y:IF STiNU!=-! THEN 80 
SOB 5B0:GGT0 340 
360 G03UB 530 
Check if shapes match. 

370 IF SH(N!)=S'ri(N2i THEN 400 
Shapes did not match. 

380 LOCATE 21:PRINT L4ti;L0CATE 23,!:FRI 
NT TaB!!2)'SDrrv, no »stch.":FCR J=l TO 
3000:NEn:GO3UB 5i0 
J90 «V=I1V+1:N£XT e;60T0 300 



Player has matched shapes. 

400 LOCATE 21:PB;NT L4$;:L0CATE 23.;:F0R 
K=700 TO 1200 STEP lOOlSOUNB K,2:NEn;L 
OCATE ,2:PRINT "Fantastic, "Nt!Q)«' fou 
Bstchsd the;ii'":FOR J=; TO 3000;NEXT 

Increase player's score, flag matched 
shapes, increment move counter 
and blacl< out shapes. 

410 3C!Q)=SCi3!+l;ST!NI)=-l:ST;N2)=-l;My 
=HV-fi;v=Yl:s=x;:E05UE 570:Y=y;:j=j2:GCSU 

S 570 

420 N=N+l;lF N=TG THEN 950 

430 GOTO 310 

Get a guess. 

440 PRINT CSR$;:At=FNUFJiINFUT$':i;;-:IF A 
SC(AJi=6 THEN 1070 
450 IF A$<"1" OF Ai;"6" THEN 440 
460 PRINT At; 

470 PRINT CSRJ;:Bt=FNUP$aNFyT$il)):;F A 
SCiBJ)=t THEN 1070 

480 IF A3CiB$!=3 THEN PRINT " "BS$;B3$;; 
GOTO 440 

490 IF S*<"A'' DR BDHt THEfi 470 
500 PRINT B$:IF A$="l" THEN NU=ASCl"B$)-a 
4:G0T0 520 

510 Ny=i iVAL !A$) -1 ) tLMl + ;ASC ;B$) -64) 
520 J=(ASC (B$) -64) *20: Y=yfiL (At)*20:RETUR 
N 

Draw routine. 
530 60SUB 570 

540 FOR J=400 TO 700 STEP 50: SOUND J,.l: 
NEXT 

550 ON 5H!NU) GOTO 590,600,610,420,630,6 
40,650,660.670,680,690,700,710,720,730,7 
40,750,760,770,730,790,800,810,820,330,8 
40 , 350 , 360 , B70 , 8B0 , 390 , 900 , 9 1 , 920 , 930 , 9 
40 

Fill in squares after an incorrect 
guess. 

560 LINE (Xl + l,yl + I)-l);i + lB,yi + lS),,BF;L 
INE i)!2+l,y2+!)-(;<2+13,V2+13),,BF: RETURN 

Black out a square. 

570 LINE !.«,y)-{.)irl9,y+!9),0,BF:RETURN 



Tell player that a square has already 
been matched. 

5S0 LOCATE 21,1:FRIMT L4t:;L0CATE 23, HP 
RINT "That sqaars hi5 already been mat:!! 
ed.":FOR J = l TO 3000;NEn;RETURN 
Routines for drawing various 
shapes. 

59(; LINE ();+2,Vt2)-iX + l?J+2l:LifiE -!; + : 
7,i'+i7i:LiNE -o:+2.ni7): line -\u2rh2 

):RETURN 

600 LINE l)!+9,y+2J-iU17,y+!7):LINE -lU 

2,Y+17i:LIME -!):t9,V+2;:RETURN 

410 LINE ()(+2,rt2:i-afl7,y+2i;LIIiE -IJr? 

,V<-17):LINE -i^t2,y+2): RETURN 

420 LINE 1)1+2, y+2)-!!+i7,y+l?):LINE Jtl 

7,y+2)-U+2,y+17i:RETUF:N 

430 LINE (n9,¥+2i-il{+9,y + 16):LINE 1^2, 

Y+9!-!l( + S6, V+9):RETURN 

440 LINE iX+9,y+2)-U + 14,y+9):LlNE -1)1+9 

,y+14):LlNE -■:X+2,y+9);LINE -a+9,Y+2);R 

ETURN 

450 LINE !):+4,V+4;-1!1 + 13.Y+4j:L!NE -1.U1 

3,y+!3i:L!NE -i)i+o,y+i3:i:LiNE -!X+6,y+t) 

; RETURN 

440 LINE ()l+9,y+2)-U+9,Y+17);LINE !J(+4, 

Y+7)-!J+9,y+2):LINE -(J + 14,y+7):RETb'RN 

470 LINE i)(+2,y+9l-a+17,y+9irLINE i<+7. 

Y+4)-()1+2,V+9):LINE -i);+7,Y+!4l:RETURN 

flSO LINE U+2,Y+9)-lil + 17,y+9i:LIIIE iUl'I 

,Y+4)-()1+17,Y+9);LINE -!);+!2. i + 14;:RETUR 

N 

490 LINE (X+9,Yt2)-il(+9,y+17!:LINE 1U4, 

Y+12)-l)i'+9,Y+I7;:LINE -a+M,Y+12i;REn)R 

N 

700 LINE ':.U2,y+2)-U + 17,y+17):F.ETURN 

710 LINE {X+17,r+2i-!;(+2.y+I7!:RETiJRN 

720 GOSUB 590:60T0 450 

730 GOSUB 440: GOTO 430 

740 BOSUB 470; GOTO 430 

750 BDSUB 7!0:G0T0 440 

740 GOSUB 700: GOTO 440 

770 GOSUB 430: GOTO 740 

780 LINE ()l+2,Y+2)-IX + 13,Vt2):LINE -:al 

3,Y+13):LINE -l)(+2,y+13):LINE -!X+2,y+2i 

:L1NE (X+17,Y+17j-(J(+6,f + 17);LINt -l-'+4, 

y+4);LINE -iJ + 17,Y+4):LINE -a + 17,y+|7i; 

RETURN 



790 LINE lj(+4.y+4i-ii<+7,y+7i,,BF:LINE ul 

+ 12,y+12)-0: + !5,Y+15i,,BF:RETURN 

800 GOSUB 590: GOTO 790 

810 SDSUB 700;GDTO 590 

820 SOSUB 710:G0TQ 590 

S30 GOSUB 440: GOTO 450 

840 S05UB 430:eOT[i 420 

S50 GOBUB 590: GOTO 420 

640 GOSUB 590: GOTO 840 

870 GOSUB 410: GOTO 400 

830 GOSUB 870: GOTO 590 

890 GOSUB B50:G0TQ 930 

900 GOSUB 420: GOTO 440 

910 GOSUB 900:.H0T0 590 

920 GOSUB 850: GOTO 780 

930 GOSUB 590:6070 730 

940 GOSUB 44C:G0TD 49C 

End of game. 

950 CLS:L0CATE ,n:PRl.MT "Hf Final scar 

e *-**":LOCATE 5 

940 IF PP=1 THEN PRINT NMH", vaj score 

d"SCll!"point5.";G070 1020 

970 IF SC;U=SCi2) THEN fll="It^s a tie:" 

980 IF St:il);SC12! THEN A$=N$i2) + " iioni" 

990 IF 3C!1)>3CS2; THEN fti=N$iI)+" son!" 

1000 LOCATE ,;20-LENiA$)/2):PRINT AJ 

1010 FRINT:PRINT:FRINT Nlil)"'s score sa 

5"ETRJ(ECil))".":PRINT:PRINT NJ(2J"s sc 

ore Kas"STR5iSC12i)"," 

1020 PRINT:PRINT "It tool;"MV"turns to as 

tch dll":FRINT:PRINT "dT the shapes," 

1030 FOR J=l TO 3:F0R K=400 TO 900 STEP 

20:30UND K,.2:NEXT:NEaT 

Check if another game is to be 
played. 

1040 LOCATE 22: PRINT 

y again? "CSRJ! 

1050 fl$=FNUF$lINFUTS(l); 

RUN 

lOiO IF AtO'fr THEM 1050 

1070 cls:end 

Routines to set up different levels of 
difficulty. 

1080 T6=21:LH=7:H$="G":GGT0 1110 
1090 TS=30:L1'!=10:H$="J":G0T0 1110 
1100 TG=34:LH=12:Ht='L":SCT0 1110 



Co vou riant to pla 
F ftJ="Y" THEN 
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Mix and match shapes. 

lilC FDR J=! ID TE 

1120 K=INTi(TBt2!«RMI)!l) + l!:IF SH(KU>0 

THEN 1120 

1130 L=lNT!TG»RND(l) + n:(F ETfDOG THEN 

1130 
1140 3HiK)=L:3T!L) = !:NE;:T:F0R J = l FD TG: 
ST!0)=0:NEn:REFURfJ 

Make sure players' names start in 
upper case, and the rest of the let- 
ters are lower case. 

;!50 HIDtiNM$,l)=FNUP$(HIDt(NMt,I,l):;FQ 
R K=2 TO LENINfi$);t$=mD}iNI1J,K,l;:HIDJ! 
NI1*,K;=CHR$iASC\C$)-32*lflBCICJJ>i4 AND A 
SC(ClK91));NEn:RETi)R(ii 



STOMP ^yai, 
"'^imv ••»* TABLE 







STOMP 




LINES 




CODE 


LENGTH 


100 - 


V<) 


SQ 


541 


200 - 


310 


TQ 


528 


320 - 


430 


JO 


494 


440 - 


550 


ZQ 


423 


560 - 


650 


AS 


552 


660 - 


770 


3F 


360 


780 - 


890 


GS 


294 


900 - 


1010 


ou 


323 


1020 - 


1130 


TJ 


328 


1140 - 


1150 


IC 


147 





by David Plotkin 



At The Codfish Bali is a game for the Atari 400, 800 1200 with 48K 
RAIVI, one disk drive and a joystick. 

This game is different from other arcade style games because it does not re- 
quire supernormal reflexes to achieve decent scores, but instead concentrates 
on skill and timing. It is also a good example of how a game can be written in 
BASIC and still be smooth and fast. Take a look at the "Take-Apart" for 
programming hints and watch SoftSide for more information on how to write 
BASIC games. 

You control "Diver Dave." He moves back and forth along the bottom of 
the screen under control of your joystick plugged into port 1 . Pressing the fire 
button releases a spear from Diver Dave's spear gun which moves up the 
screen until it hits a target or goes off the top of the screen. You can only have 
one spear on the screen at once. 

The targets in this undersea shooting gallery are whales, sea snakes, rays, 
soles, seahorses, sea snails and, of course, cod. Each hit on a target nets you 
ten points. The program keeps track of score, high score and number of re- 
maining spears. Each time you clear the screen, the action speeds up and the 
number of spears you start with decreases. The game is over when all the 
spears are gone. 

In line 20010 of the listing there is a string variable XFR$. XFR$ contains a 
machine language routine that quickly sets up a redefined character set for the 
Atari. It is very difficult to represent this string in the listing of the program, so 
here are explicit instructions on how to type it: 

Each key is represented by something between brackets. Thus [h] means to 
type a lower-case "h"; likewise, [Atari] means to press the Atari logo key, 
which is found next to the right-hand shift key, and [CTRL-N] means to press 
the "N" key while holding down the "CTRL" key. Special note: [1] is a the 
numeral one — it is not the lower-case version of "L"! 

Type the following sequence exactly to produce XFR$: 

[h] [Atari] [)] [Atari] [CTRL-,] [Atari] [CTRL-E] [K] [CTRL-E] [M] [)] 
[CTRL-.] [CTRL-E] [N] [%] [Atari] U] [CTRL-X] [i] [CTRL-A] [Atari] 
[CTRL-E] [L] [spacebar] [Atari] [CTRL-,] [Atari] [1] [M] [CTRL-Q] [K] [H] 
[P] [y] [f| [L] m [N] [%] [N] [I] [d] [P] [m] [Atari] [CTRL-.] 
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CODFISH BALL 

Variables 



HISCORE: Keeps track of high 

score. 

FLAG: Status of spear (0, off 

screen; 1, on screen). 

B: Level of difficulty. 

SCORE: Player's score. 

BULLETS: Number of spears. 

YP2: Screen line of spear. 

UPS: String which contains 

machine language routine to move 

the spear up. 

MOVES: String which contains 

machine language routine to move 

the targets. 

PM: Address of start of 

Player/Missile memory. 

PXP2: X coordinate of spear in 

P/M coordinates. 

JUMPS: String which contains 

machine language routine to move 

the spear around the screen. 

XP2: X coordinate of target hit. 



PYP2: Y coordinate of spear. 

HITS: Number of hits on targets 

BYTES,A,A1,A2,A3,A$: Variables 

for entering machine code 

routines. 

Z$: Holds value of current target 

to put on the screen. 

DL: Address of display list LMS 

bytes. 

MEM: Address of second line of 

display list. 

ML.MH: Low and high bytes of 

MEM. 

PXPl: X coordinate of Diver 

Dave. 

SC: Address of beginning of screen 

memory. 

START: Address of alternate 

character set. 

W,I,J,C,AA,X.LINE,COLUMN: 

Miscellaneous loop and read 

variables. 



pC; CD QC; cq 



5i SB BS SS BB SB S3 



SB htari BASIC SS 

SS 'Cudtijh Bdi;' iS 

SS fiutfior: David Piotkin 3S 

SB Copyright © !?S3 SS 

SS SoftSide Pjbl scat ions, Inc SS 



If you don't wish to type this program, It Is 
available on Issue #47 SoftSide DV and CV. 



Do subroutine calls and other set-up 
steps, initialize variables. 
10 60SUB 10500: GOSUB 11000:G0SUB 12000 
:60SUB 13000: GOSUB 20000: HI3C0RE=0 
20 FLAS=0: B=0: SCQRE=0: BULLETS=300:6DSU 
B 10000 

Test for spear on the screen. Make 
some sound to slovy/ program execu- 
tion, move the targets and checl< to 
see if player wants to fire if there is 
no spear on the screen. 

100 !F FLAG=0 THEN D=USR(ADR(HOyE$)) :S 
DUND 2,10,12,6;S0UND 2,20,12,6;SQUND 2 
,30, 12, 6:S0UND 2,40, 12,6;S0UND 2,0,0,0 
:60TD 240 



Move the spear up. 

110 YF2=YP2-l;!l=U3R!ABR(UP$),PI1+656) 
Test for spear still on screen. 

120 IF YP2>0 THEN GOTO 160 

Spear has reached the top of the 
screen. Move back to the bottom of 
the screen, reset the position and 
status of the spear. 

130 PXP2=0:P0KE 53249, FKP2:D=USR(ADR(J 

UI1P$),PM+73i,PM+6561 

140 Il=USR!ADR!JUI1P$),Fn+i5b,=>H+640):FL 

fi6=0:IF BULLETS=0 THEN GOTO 500 

150 >;P2=0:YP2=20:PQKE 53278,0: GOTO 220 

Test to see if the spear hit a target. 

liO IF PEEK(53253)=0 THEN GOTO 220 

The spear hit a target. Move the 
spear off the screen and erase the 
target. Make some sound, reset the 
position and status of the spear, in- 
crement the score and number of 
hits and test to see if the screen 
has been cleared or the diver has 
run out of spears. 

170 PYP2=YP2t4+65i:P!!P2=0:PDKE 53249, P 
vp2 

180 D=USRlADR!JUMP$),P«+73fc,PM+FYP2):D 
=USR(ADR(JUI1P$),Ph+PYP2,PH+640) 




190 COLOR 32iPL0T XF2,YP2:PL0T »F2,YP2 

+ 1:PL0T )!P2-i,YP2:PL0T XP2-1,YP2+1:FL0 

T );P2+1,YP2:PL0T XP2+1,YP2+! 

195 FOR W=l TO 10:3QUND 0,W«10,8,S;NE>: 

T W: SOUND 0,0,0,0 

200 XF2=0;YP2=20iFLfiG=0:SC0f:£=SC0RE+10 

:POSITION 15,0:PR!NT SCORE; :POKE 53278 

,0 

210 HlTS=HITS+liIF HITS=72 THEN 30TC 3 

00 

215 IF B0LLETS=O THEN GOTO 500 

Move the targets and test for a hit. 
If there has been a hit, go back to 
line 170. 

220 D=USR (ADR (HOVEtS); POKE 53278,0: IF 
PEEK (53253)00 THEN GOTO 170 
Go back through the program loop. 
230 GOTO 100 

Test to see if the trigger button was 
pushed. 

240 IF STRIS(0!=! THEN 100 

Trigger button is pushed. Launch a 
new spear, decrement the number of 
spears, and update the spear status. 

250 POKE 77,0:FLAG=l:P)(P2=PEEK!l662H-4 

:)!P2=INT((Pl(P2-4S)/4) 

260 POKE 53249, P!(P2:BULLETS=BULLETS-1: 

POSITION 5,0:PRINT BULLETS;" ";;SOTO I 

10 

Screen cleared. Increase difficulty 
and give the diver some new spears. 
Redraw the targets. 

300 B=Btl:BULLETS=300-10«B:IF B>12 THE 
N B=12 

310 60SUB 2200:HITS=0:G03UB 10005:S0T0 
100 



Game over. Clear the remaining 

targets from the screen, display the 

game over message and high score. 

Restart the game if player presses 

the fire button. 

500 GOSUE 220O:P0SIT10N 5,15:? "GAME 

VER. TO PLAY AGAIN" 

510 POSITION 5,16:? "PRESS FIRE SUTTON 

":!F 3C0RE>HISC0RE THEN H!SCORE=SCGRE 

520 POSITION 5,17:? "HIGH SCORE SO FAR 

IS ";HISCORE 
530 IF STRIG(0)=1 THEN 530 
540 FLAG=0:B=0:SCGRE=0;fiULLETS=300:GDS 
OE 2200:G0SyB 10005:6010 100 
Read hex code bytes from 
13045-13240 and translate into 
numbers. 

2000 READ EYTE*:Al=flSC!BYTE$i-48:IF Al 
;:10 THEN Al=Al-7 

2010 A2=ASC{BYTE$(2,2)i-4a:IF fi2)10 TH 
EN A2=A2-7 

2020 A$=CHRiiAUl6+A2):RETURN 
Break the address of each line of 
targets into high and low bytes. 
2100 FOR i=() TO 3:A2=INT(Ai/25i):A3=Al 
-A2S256:P0KE A,A2:P0KE A+1,A3 
2120 A=A+3;Al=Al+S0:NEn J:RETURN 
The clear screen routine. 
2200 COLOR 32: FOR J=l TO 23: PLOT i,J:D 
RAWTQ 39,J:NEXT L-POSITIQN 0,0:RETURN 
Puts the targets on the screen. 
10000 DIM Zt(l) 

10005 FOR LINE=2 TO 16 STEP 2:Zf=CHR5( 
LINE/2-l):F0R C0LUnN=3 TO 36 STEP 4 
10010 POSITION COLUMN, LINE:PRINT Zs 
10020 NEH COLU«N:NEn LINE:RESTORE 10 
100+B:F0R J=l TO 8:READ A:PGKE 1663+Jl 
3,A:NEn J 
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10030 POSITION 0,0:? "AMMO +++";3UL 
LETS;" SCORE +++++"!ECORE:REH + S 

IGNS ARE ESC CTRL-RIGHT fiRROB 
10050 RETURN 

10100 DATA 0,2,0,2,0,2,0,2 

10101 DATA 0,2,0,2,0,2,1,2 

10102 DATA 0,2,0,2,1,2,1,2 

10103 DATA 0,2,1,2,1,2,1,2 

10104 DATA 1,2,1,2,1,2,1,2 

10105 DATA 0,2,0,2,0,2,0,3 

10106 DATA 0,2,0,2,0,3,0,3 

10107 DATA 0,2,0,3,0,3,0,3 

10108 DATA 0,3,0,3,0,3,0,3 

10109 DATA 0,3,0,3,0,3,1,3 

10110 DATA 0,3,0,3,1,3,1,3 
lOni DATA 0,3,1,3,1,3,1,3 
10112 DATA 1,3,1,3,1,3,1,3 

Routine for Diver movement on im- 
mediate VBI. 

10500 RESTORE 10510:F0R 1=1536 TO 1611 

:READ A:POKE I,A:NEn I 

10510 DATA 104,173,34,2,141,74 

10520 DATA 6,173,35,2,141,75 

10530 DATA 6,169,6,162,6,160 

10540 DATA 23,32,92,228,96,24 

10550 DATA 173,126,6,141,0,200 

10560 DATA 173,124,2,208,6,206 

10570 DATA 126,6,206,126,6,173 

10580 DATA 125,2,208,6,233,126 

10590 DATA 6,238,126,6,173,126 

10600 DATA 6,201,48,176,5,169 

10610 DATA 192,141,126,6,201,193 

10620 DATA 144,5,169,50,141,126 

10630 DATA 6,76,73,6 

10640 IF PEEK(547)<)6 THEN DUI1=U3R(!53 

6) 

10650 RETURN 

Modifies the dispiay list and pokes 
in tfie colors for eacfi band of color. 

11000 GRAPHICS 21:P0KE 752,liP0KE 87,0 

:C=0:REST0RE 1U60 

11010 DL=PEEK(560)+256JFEEK(561)+4 

1 1020 HEM=PEEK IDL) t256tFEEK (DL+! ) +40 

11030 HH=INT(MEI1/256):I1L=HEK-MH*256 

11040 POKE DL-1,198!PQKE DL+2,66:F0KE 

DL+3,ML:P0KE DL+4,MH 

11050 FDR J=5 TO 26;P0KE DLtJ,2:NEn J 



11060 FOR J=5 TO 19 STEP 2:PDKE DL+J,1 

30:NEU a 

11070 POKE DL+27,65 

11080 POKE 01+28, PEEK(560) 

11090 POKE DL+29, PEEK (561) 

11100 READ AiIF A=999 THEN 11120 

11110 POKE 1744+C,A:C=C+l:eOTO 11100 

11120 POKE 512,20S;PQKE 513,6 

11130 POKE 1774,98:P0KE 1775,!14:.P0KE 

1776,130:P0KE 1777,146:P0KE 'l77e,162:P 

OKE 1779,178:F0KE 1730,194 

11140 POKE 1781,93:P0KE 1782,114 

11150 POKE 1783,0: POKE 54286,192 

11160 DATA 72,138,72,174,247,6,189,238 

,6,141,10,212,141,24,208,232 

11170 DATA 224,9,144,2,162,0,138,14! 

11180 DATA 247,6,104,170,104,64,999 

11190 POSITION 0,0;PRINT "INITIALIZING 

": RETURN 

Set up Player/fVlissile graphics and 
place shapes in P/M memory. 

12000 A=PEEK(106)-8:P0KE 54279,A:Ffl=25 

6«A;PQKE 106, A: POKE 623,0 

12010 POKE 559,4&:P0KE 53277, 3:F0KE 70 

4, 3; POKE 705,0 

12020 FOR I=PM+512 TO F«+76S:P0KE 1,0: 

NEXT I 

12030 FOR J=PH+612 TO PH+620;READ A:P0 

,KE J,A;NEn J 

12040 DATA 60,102,102,60,153,126,24,24 

,60 

12050 PXP1=100:POKE 53248,PXP1:P0KE 16 

b2,?l?l 

12060 FOR J=PM+736 TO PM+739:READ A;PO 

KE J,A:NEn J 

12070 DATA 192,192,192,192 

12030 P!;P2=0:P0KE 53249, PXF2:YP2=20 

12090 RETURN 

Initializes the routines to move the 

targets and spears. 

13000 DIM M0yE$(200J,BYTE$t2),A*i40),U 
P$!23),D0l!|Nt(281,JUMP$!26):F0R J=l TO 
171:G0SyB 2000:l10yEi(J,J)=A$:NEn J 
13010 3C=FEEK!ae)+PEEK!89)t256:A=!664 
13020 Al=SC+2+BO:S0SUB 2100 
13030 Al=SC+2+40»10:G0SUB 2100 
13040 POKE ft,0 
13045 DATA DS,A9,80,S5,CD,A9,06,85,CE 



13050 DATA 3B,B0,3D,60,A0,00,B1,CB 

13055 DATA 48,A2,25,C8,B1,CB,88,91 

13060 DATA CB,CB,CA,D0,F6,68,AO,25 

13065 DATA 91,CB,3e,B0,27,A0,00,Bl 

13070 DATA CB,48,C8,B1,CB,48,A2,24 

13075 DATA CS,Bl,CB,a8,3S,91,CB,C8 

13030 DATA CB,CA,D0,F4,68,A0,25,?! 

13085 DATA CB, 68, 88, 91, CB, 38, BO. 04 

13090 DATA Be,68,C6,CD,E6,CD,A0,00 

13095 DATA B1,CD,FQ,B7,85,CC,E6,CD 

13100 DATA B!,CD,85,CB,E6,CD,B1,CD,F0, 

OC 

13105 DATA C9,01,EA,F0,2O,C9,O2,EA 

13110 DATA F0,A0,D0,B7,A0,25,B1,CB 

13115 DATA 43,A2,25,88,B1,CB,C8,91 

13120 DATA CB,83,CA,D0,F6,63,A0,00 

13125 DATA 91,CB,33,B0,C5,A0,25,B! 

13130 DATA CB,48,3S,E1,CB,4S,A2,24 

13140 DATA 38,B1,CB,C8,CB,91,CE,88,88, 

CA 

13145 DATA D0,F4,68,AO,0O,91,CB,6B 

13150 DATA CB,91,CB,38,B0,A2 

13200 FOR J=l TO 2B:G0SUB 2000: UP* (J, J 

)=At:NEn J 

13210 DATA 68,68,85,CC,68,35,CB,A2 

13220 DATA 60,A0,00,C8,C8,C8,C8,B1 

13230 DATA CB, 38, 38, 88,88,91, CB,Ca 

13240 DATA CA,D0,F0,40 

13300 DO!i!N*=L'P$: DOWN* (11,11) =CHRi (94 ) : 

FOR J=12 TO 15:D0WNt(J,J)=CHR$(136!:NE 

n J 

13310 FOR J=18 TO 21:D0WN$(J,J)=CHR$(2 

001:NEKT J;D0WN$(24,24)=CHR$(136) 

STOMP 



13320 FOR J=l TO 25:READ AA:JUHP$(J,J) 

=CHR$(AA):NEn J:RETURN 

13330 DATA 104,104,133,204,104,133,203 

,104,133,207,104,133,206,160,0,177,206 

,145,203,200,192,3,208,247,96 

Downloads and modifies tiie alter- 
nate character set. 

20000 POKE 106,PEEK(106)-5:START=(PEEK 

(106)+1)>256:P0K"E 756,START/256!P0KE 7 

52,1 

20010 DIM KFRi(33):)[FR$="h)KM)"N;^j 

iLlMKHPyfLFNXNIdPr;'":REM SEE DOCU 

MENTATION 

2OO20 2=USR(ADR(XFR$}):REST0RE 20050 

20030 READ X: IF 1(=-1 THEN RESTORE :RET 

URN 

20040 FOR Y=0 TO 7: READ 2:P0KE X+Y+STA 

RT,Z:NE);T Y:30T0 20030 

20050 DATA 512,27,14,38,113,254,254,12 

0,255 

20060 DATA 520,80,32,32,32,115,251,223 

, Z JJ 

20070 DATA 528,0,4,103,148,146,146,146 

,140 

20080 DATA 536, 255,24i,252, 184,248,228 

,194,129 

20090 DATA 544,224,188,192,193,201,201 

,199,126 

20100 DATA 552.248,160,230,152,24,103, 

4,4 

20110 DATA 560,0,0,12,222,123,222,12,0 

20120 DATA 568,8,24,56,254,19,2,0,0 

20130 DATA -1 
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STOMP 






STOMP 




LINES 


Q9PE 


tgNQTH 


LINES 


CODE 


LENGTH 


10 - 170 


HJ 


501 


11110 - 12020 


DQ 


529 


130 - 260 


ZX 


568 


12030 - 13040 


LH 


442 


300 - 2100 


PF 


515 


13045 - 13100 


BJ 


393 


2120 - 10103 


LH 


452 


13105 - 13220 


CB 


395 


10104 - 10520 


KA 


323 


13230 - 20020 


HK 


522 


10530 - 10640 


BN 


333 


20030 - 20130 


PW 


415 


10650 - 11100 


XT 


380 

CODFIS 


H BALL 
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TAKE-APART: At the Codfish Ball 

"At the Codfish Ball" is a BASIC and machine language game which runs 
fairly smoothly and with appreciable speed. Two factors combine to produce 
this satisfactory result, and we're going to look at both of them. 

At the heart of "Codfish Ball" are the machine language routines set up by 
some of the subroutine calls in lines 10 and 20. These routines handle all the 
motion in the program. Before analyzing how the machine language routines 
work and how they impact the program, I should point out that I did not 
author a single one of the routines. They have appeared in various periodicals 
over the last two years. While I did need to modify the routines somewhat to 
conform to the requirements of this program, the fact that I didn't write the 
routines points up an important fact: You don't need to be an assembly 
language expert (I'm not!) to write good, fun-to-play programs on your Atari. 
In fact, in many cases you need no assembly language at all because the 
routines you need already exist. You just have to copy them into your program. 

I'll talk about the machine language subroutines in the order that they ap- 
pear in the program. The first routine begins at line 10500 and ends at line 
10650. This utility reads joystick 1 and moves player 1 (the diver) left and right 
across the bottom of the screen. The routine is located on page six of memory 
beginning at memory location 1536. While you may know that POKEing the 
horizontal position register will move a Player or Missile horizontally very 
quickly, the process of reading the joystick, computing the new value of the 
horizontal position, and placing it in the horizontal position register can slow 
down a program considerably. Not only does this routine execute the whole se- 
quence at machine speed, even the necessity of a USR call to the routine has 
been ehminated by placing the code execution on the Immediate Vertical Blank 
Interrupt. Without getting technical, this means that the code gets executed 60 
times per second. Thus, there will never be a delay between the time you move 
the joystick and the response on the screen. 

The subroutine from 11000-11190 is the modified display list. Except for a 
minor modification, this display list is identical to the one used for "Hopper." 
For information and a marvelously informative take-apart, see "Exploring the 
Atari Frontier" by Alan J. Zett in January, 1983 SoftSide. The modification 
puts more bands of color on the screen (nine, excluding the Graphics 1 line at 
the top) than there were in "Hopper." The second byte of data in line 11170 
was changed from a four to a nine, and more lines of display list were POKEd 




with the appropriate value (130) to activate the Display List Interrupt in line 
11060. The nine colors are stored in page six locations 1774-1782 and placed in 
those registers in lines 11130 and 11140. If you don't like the colors, you can 
change them by poking a different number into these page six locations (e.g., 
POKE 1774,0 to place a black band on the screen). 

The most powerful of the machine language routines in this program is the 
next one, from line 13000 to 13150. It should look familiar — it is the routine 
used to move the cars, logs, etc. in "Hopper." Lines 13010 to 13030 place the 
address of each line (up to eight total) that will scroll into the locations on page 
six that are used by the program. The start of screen memory is computed as: 



SC = PEEK(88) + 256*PEEK(89) 

Then an offset is added to SC to move down some lines and get away from the 
left edge of the screen in line 13020. The addition of two bytes to SC moves the 
address two spaces from the left edge of the screen, and the addition of 80 
bytes moves the address down two lines from the top of the screen (40 bytes 
per line). The call to the subroutine at 2100 breaks the line address up into high 
and low bytes and places these numbers in memory. The subroutine at 2100 
computes the appropriate address four times, incrementing the address by two 
screen lines each time. The two calls to this subroutine (from lines 13020 and 
13030) thus generate eight addresses of lines to scroll. Line 13000, besides 
dimensioning some strings, reads the odd looking data in lines 13045-13240 in- 
to memory. This data is called hex code, it is the hexadecimal representation 
(Base 16) of the machine language code. The subroutine call to line 2000 is to 
translate hex code into normal decimal numbers, which are then placed into 
memory. Although it is slow to read each hex code, translate to decimal, and 
place into memory (most of the long initialization at the beginning is spent do- 
ing this), it is far more efficient in terms of memory occupied by the program 
to use hex code instead of decimal for long listings. 

The routine from 13200 to 13310 sets up the machine routine to move the 
diver's spear up the screen. It is (did you guess?) the one used to move "Hop- 
per's" frog across the screen. 

Finally, the lines from 13320 to 13330 set up a routine to remove the spear 
from the screen when it hits a target or goes off the top of the screen. This 
routine actually gets called twice, the first time to copy the spear image from 
wherever it is on the screen back to the bottom of the screen, and the second 
time to copy blanks to the spear position on the screen, erasing it. 

The other setting up is done by the remaining subroutines. The routine at 
lines 10000-10112 sets up and draws the redefined characters (targets) in their 
rows and places the last set of numbers required by the scroll routine into the 
proper page six locations. These numbers (10100-10112) determine the speed 
and direction that the eight lines will scroll: a zero means one space left, a one 
means two spaces left, a two means one space right, and a three means two 
spaces right. 

The routine at 12000-12090 sets up and draws the Player/Missile shapes and 
the routine starting at line 20000 sets up the redefined character set which 
makes up the targets. Line 20000 sets aside more or less protected memory by 
stepping back location 106 (RAMTOP). Normally, the computer will not place 
anything above the location indicated in memory location 106, so it is general- 
ly safe for storage (as with anything else, there are exceptions). Line 20010 uses 
a short machine language routine to download the ROM character set into 
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RAM where it can be modified. Finally, 20020 to 20040 POKEs the modified 
characters into the appropriate memory locations. The modified characters 
were designed using SoftSide's own character generator (October 1981, by 
Alan J. Zett). This fine program writes the BASIC code for inclusion into your 
program. It even "remembers" which characters were modified, so that code 
is generated only for those characters. 

The second factor which makes a BASIC program operate smoothly is sim- 
ple logic and compact code. The section of "Codfish Ball" which actually ex- 
ecutes over and over again to give the game visuals (the "loop") is only ninteen 
lines of BASIC (100-260). Of these ninteen lines, only about twelve execute 
each time through the loop; the rest are ignored because the appropriate condi- 
tions are not met. By keeping the logic simple, the amount of code in the loop 
is kept small, and the program can run quite fast. BASIC simply cannot han- 
dle sophisticated (or unsophisticated, for that matter) artificial intelligence 
routines with any speed at all. I know. I tried to get my "Munchkin Attack" to 
run faster. Of course, these types of routines can be machine coded too, but 
the likelihood of finding ready made machine routines for things like artificial 
intelligence is much less than finding P/M and memory move routines. 

One of the interesting points of the "loop" is line 100, which contains all 
those SOUND statements which generate a pitter-patter noise and slow down 
the program when no spear was on the screen. In the absence of a spear, all the 
code from lines 1 10 to 230 is skipped. The targets get to whizzing by too fast to 
play. The use of the SOUND statements slows the (spearless) program down to 
the point where it runs at about the same speed as when a spear is on the 
screen. SOUND statements were chosen over a FOR/NEXT delay loop 
because it gave the program more depth (no pun intended...! think). If you 
don't like the sound, you can change these statements, or leave them out 
altogether. Put the following in their place to keep the timing even: 

FOR WAIT = 1 TO 15:NEXT WAIT:GOTO 240 




CRIBBRGE 
SQURRES 




by Bob Whitworth and Ron O'Laughlin 

Cribbage Squares is a card game for an Apple with 48K. 

Cribbage Squares is a game similar to SoftSide's issue #41 Poker Squares. 
The object of the game is to create eight cribbage hands of five cards each. The 
eight hands will then be evaluated by the computer, and scores accumulated 
for each player and displayed in a scoresheet at game's end. 

The computer first shuffles, turning up sixteen cards, one at a time. The 
player then drops the cards on a four by four grid by pressing one of the letters 
A-P corresponding to the small rectangles that make up the grid. As the exposed 
top card is played onto the grid, the computer turns up the next one. 

After all sixteen cards are played on the grid, a seventeenth card will be turned 
up and will represent a common fifth card for each of the eight "hands" in the 
grid. The "hands" are the four rows across and the four columns going down. 
The computer will begin to count up the scores for each hand, with rows first 
and columns last. The total score for each player will be noted on a summary 
scoresheet after each game. 

You can play the game as solitaire, or up to four players can compete head- 
to-head. In the multiple-player mode, each person plays, in turn, the same six- 
teen cards turned up in the same order. Of course, when one person is playing, 
others must not watch the cards turn up for him; this is called cheating. Each 
player may be allowed a different amount of time in which to play each card, 
I providing a very effective method of handicapping. 
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Beware of the following hazards: 

• Every time the clock runs down to zero, the player receives a five point 
penalty, and the clock is reset; 

• If you hit an improper key (one that does not match one of the A-P 
squares, or one that has been previously selected) the appropriate error 
message appears. And remember, once a card is dropped onto the grid, you 
cannot pick it up or move it again. 

To interrupt the game, hit the ESC key. Hitting the space bar resumes the 
contest. If you want to examine the scoring done by the computer after each 
hand, just hit the ESC key to stop the scoring and examine the hand. To speed 
up the scoring routines, hit the space bar after the hand has been counted, and 
it will speed ahead to the next hand. 

Scoring for Cribbage Squares is identical to scoring in the game of cribbage. 
Every separate grouping of cards that makes a total of fifteen, a pair or a run 
counts separately. Three of a kind (pair royal), counts the same as three pairs, 
as three different sets of pairs may be formed. Four of a kind (double pair 
royal) counts the same as four pairs. A scoring chart follows for some of the 
scoring combinations of cribbage. (Figure 1.) 

Strategy is very important in this game. For example, you will learn to go for 
combinations of fifteen in one direction, and prepare for runs and double runs 
in the other. As you play more and more, you will begin to get a feel for the 
best way to place your cards for the best possible chance for a high score. 



Scoring Chart 


Fifteen 


Each combination of two or more cards that totals 
exactly fifteen scores two points. Remember that face 
cards count ten and all others coimt their numerical 
value. 


Pair 


Each different pair of cards of the same rank will 
score two points. 


Pair Royal 


Three of a kind of the same rank scores six points. 


Double 
Pair Royal 


Four of a kind of the same rank scores 12 points. 


Run 


Each combination of three or more cards that are in 
sequence scores 1 point for each card in the sequence. 


Flush 


Four cards of the same suit in a hand scores 4 points. 
If the seventeenth card turned up is of the same suit 
as the other cards in the hand, it also scores as a 
point. 


His Nibs 


When a jack in the hand is of the same suit as the 
seventeenth card, it scores one point. 



Typing in the program 

Enter the first listing, Cribbage Setup. When you run this program, it will 
create the hi-res picture and shape table used by Cribbage Squares, and save 
them on disk. Type in Cribbage Squares and save it on the same disk, so that it 
may access these files. 



Variables 



A$: Temporary string variable. 
A'yo(*): Flags to indicate if a par- 
ticular card has been dealt. 
C: Total pip value of cards in 
hand. 

CVoCX): Adjusted value of card 
(ten max. value). 
CL: Time remaining on clock. 
CP%(*): Seconds per card for 
each player. 

D<yo(*,*): Patterns by card for 
checking of fifteens. 
Fl'%(*): Value of each card dealt. 
F2%(*): Suit of each card dealt. 
G4: Number of games played. 
G$: Patterns by hand for checking 
of fifteens. 

Kl: Flag for type of flush in hand. 
L%(*,*): Card value at board 
position. 

M°7o(*,*): Suit at board position. 
N: Number of players. 
N$(*): Names of each player. 



P: Score subtotal for each hand. 
P5: Number of types of scores in 
the hand. 

P6: Total score for the hand. 
PVVoC*): Accumulated score per 
player. 

P8Vo(*): Total penalty points per 
player. 

P9'%(*): Total score per player. 
S'Vo(*): Number of cards in each 
suit for hand. 

T%(*): Number of cards by card 
value for hand. 

V; Character read from keyboard. 
Y: Random number (one — 52) 
for card dealt. 

Y$: Single character of fifteen pat- 
tern. 

ZZ: Address of speaker toggle. 
Zl : Row number of letter selected. 
Z2: Column number of letter 
selected. 
Z9: Timing loop variable. 
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If you don't wish to type this program, It 
Is available on issue #47 SoftSlde DV. 



IOC REHS A: REfiD B 

11 :: FOR 1 = A TO E 

1 iiv frthu L. 

;30 POKE ],C 

140 fjtn 

iSO PRINT CHfi5 i'!"BSfivE DRIE3A 

GE SHAPES. A$6S(ii,L607' 

160 DfiTfl 24576,25133 

170 CATA ;7. 0,36,0. 50, 0.a5,0,T7, 



130 DATA 89, 0.iOl, 0,114, 0,123,;!. 

136,0 
190 DATA !4S,0, 164,0, ;?3. 0,184.0 

,199,0 
200 DATA 50,1,148.1.241,1.95,2,3 

T "Ti. 

-.' ■ i.'U 

210 DATA 100, 12, 14,14,54, 63, 11?, 

9,46.0 
220 DATA 41,45,45,2!s,219,16.12, 

12,45,32 
230 DATA 28,63.30,7,0,1,168,45,5 

240 DATA 23,103.12,60,63,63,0,73 

,33,5 
250 CATA 56,63.39,12,12.12,54,46 



260 DATA 112,45,5,32,228,63,39,4 

4,45,45 
270 DATA 0,9,45.5,32,28,63,214,3 

6.100 
230 DATA 12,45,5,0,33, 100, 12,12, 

22B,5B 
290 DATA 63,7,0,9,45,12,223,63,2 

14.36 
CRIBBAGE SQUARES 
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300 DATS 32,12,45,14,54,0,41,101 

,12,4G 
310 OATS d3, 7, 32, 12, 45, 21. 46, 0,3 

■J a '.'u 

320 BATS 3i,10S, 9,45,14, 54, 54, 30 

,63,7 
330 DATA 32,36,36,0,1,112,45,5,3 

340 DATA 36, 4, C, 9, 109, 28, 223, 108 

IT 7/. 

350 DATA 228,95, I?S. 54, 7,0,33,36 

,36,10e 
360 DATA 9,30.30,30,14,14,14,5,0 

370 DATA 9,45,45,45,229,59,63,12 

,109,73 
3B0 DATA 56.255,59,223,63,7,40,4 

5,!09,;09 
390 DATA 45,4^1,5,56,63,63,63,63. 

63, 63 
400 DATA 63,7,40,45.45,45,45,45, 

45,45 
410 DATA 45, 60, 63, 63, 63, 63, u3, 63 

,63,63 
420 DATA 44,45,45,45,45,45,45,45 

,45,26 
430 DATA 63,63,63,63,63.63,63,39 

,45,45 
440 DATA 45,45,45,45,45,229,63,6 

450 DATA 63,63,103,45,45,45,45,4 

5,229.63 
460 DATA 63,63,63, 103,45,45,45.2 

29,63,63 
470 DATA 103,45,229,39,45,0,73,9 

J, 4 J 
4S0 DATA 45,229,59,63,12,109,73, 

56,255,59 
490 DATA 223,63,7,40,45,109,109, 

45,45,5 
500 DATA 56,63.63,63,63,63,63,63 

,7,40 
510 DATA 45,45,45,45,45,45.45,45 

,60,63 
520 DATA 63,63,63,63,63,63,63,44 

,45,45 
530 DATA 45,45,45,45,45,45,28,63 

,63.63 



540 DATA 63,63,63,03, 103. 4;, 109. 

45,109,45 
550 DATA 220,27,63,255,3,45,45,4 

c c ; 1 T 
J . JlJ , {j.J 

5i0 DATA 63,63,44,45,45,45,28,63 

,63,103 
570 DATA 45,229,63,0,73,73,7.37, 

255,40 
580 DATA 45,45,60,63,63,31,40,45 

,45,45 
570 DATA 45, 60, 63, 63, 63, 63, 3!, 20 

0,45,45 
600 DATA 45,45,45,45,37.63,63,63 

6;0 DATA 63,255,40,45,45,45,45,4 

5,45,45 
620 DATA 45,60,63,63,63,63,63,63 

,63,63 
630 DATA 70,45,45,45,45,45,45,37 

,63,63 
640 DATA 63,63,63,63,103,41,45,4 

650 DsTA 60,63,63,63,63,76,45,45 

,45,24 
660 DATA 63,63,103,41,60.7,0,73, 

73,9 
670 DATA 37,255,40,45,45,60,63,6 

3,31,40 
430 DATA 45, 45, 45, 45, 60, 63, o3, 63 

,63,31 
690 DATA 40,45,45,45,45,45,45,60 

,63,o3 
700 DATA 63,63,63,63,31,40,45,45 

, 45, 45 
710 DATA 45,45,45,45,60,63,63,63 

,63,63 
720 DATA 63,63,63,44,45,45,45,45 

,45,45 
730 DATA 45.45,63,63,63,03,63,63 

,63,63 
740 DATA 63,76,45,43,109,41,45,4 

5,60,63 
750 DATA 63,223,63,63,39,45,45,; 

09,41,45 
760 DATA 45,220,255,219,27,103,4 

■7 ->n -T7 -T 

j,.y.,^ , , / J 

T^fy ;"\ '^ T A n f , 1 T -T -"i c c n > -. - j t a 
! /y) UHlri iU i , ^ , i J J , Z l T , ^ ■■ , J . V , 

45,45,45 



jjy uhIh "-3. .b'.f0..j.j. i-;. 1. .43, "r. 
,23,43 

8D0 HSR : HlOL0R= ol rfP, jT r,.C; CkL 

6:')'4: KCCLDR= 7 
310 POKh ?3;,0; PulvE 233, 9i: HFIGT 

2JU,0 TD 200.135; sCALc= ;: r3J= 


320 FOtiE 4v234,0; FOR i = 24 ^0 

123 STEP 30: FOB v = iMO 1 

23 STEP 31 
830 HPLO"; LV TO ' + 27. V TQ i i 

2".'; + 26 TO i.i + 28 FG x,V 
34C PGP A = 1 ir 26: HP.Ol i..1 * 

h ]il t i 25, y ' 4; Hti'! A: NtsT 

v; NEH s: HCQLGR= 4 
850 HlGLOR= 4 
860 HPLO' 20,15 TO ;«.15 TO U5 

,144 TO 20,144 20,15 
S70 HPlDT If, 14 TO 146,14 TO 14o 

,145 FL !?,145 TD 19.14 
BSD HPLD' IS, 13 TO 14M3 TO 14:^ 

,110 TO 18,146 TO IS. 13 
390 HCOlDR= 1 
900 HPL07 IFj: FO :18,12 TC 143 

.IV 10 17, i4"' TO 17,12 
910 HPLDi 14,11 TO 147.11 TO .49 

,148 TD 16,143 TO :6.i: 

93:7 HC01GR= 3 

940 KPLGT 14,9 TD 151,9 TO 151,1 

50 TQ 14,!5;.i TO 14.9 

950 KFLOT 13,8 TC 152.8 TD 152. i 

51 TO 13,151 TG 13,8 

960 HPL07 12,7 10 153,7 FO 153,1 

52 TC 12,152 

v70 HF.G7 17,7 70 i2.152 

930 HG010P= 4: POKE 49235,0 

990 FOR :■ = !7 TD 10: KP.OT ;.-7 in 

K,16f^: NEH i 
1000 FDR f = TO 6: FiPLCT O.V TO 

153, y; NEH V 
1010 FOR T = 152 TD Iti); HPLGT 

.i TD 153,!: NEaT ; 
1020 FDR ; = 154 TD 279: HPl.OT K 

,0 TD X,li0: ilEXT v 



1030 rlCDLOR= 3: FOR X = ; TO 2^1 

HPLOT 189,113 + : TO 216.1! 

B - V. NEXT t 

1040 h:qlg^= :; fok ! = , to 27: 

HPLO! 19i,r9 + V ir, 214,11 

9 4 <: NEU y. 

1050 HCCl0P= -. 

.06^. HFlOT 37,31 'Q 33,3;: H?20T 
3i,32 10 36,37; HFICT 39,32 TO 
39,37; KP.OT 37,34 TD 3S.3- 

1070 HfiO 6B,3i 70 66,31 FQ 66, 
37 10 c.S,37: HP.OT o7,34 70 
63,34: HPLOT 69.32 10 69,33; 
HPLO' 69,35 TO 69,36 

l;ieO HPLOT 99,32: HPLQT 99,36; HPlC 
97,31 TO 9S,31: HPLOT 97.37 TD 
98.37; KPLCT 9t,,32 TO 96,36 

1090 HPLOT 128,31 TC 126.31 ■C 1 



2:. 37 TF 123, 



LDi nr t lu 



ll:ii! HPLOT 39,62 TC 3n.62 TD 36, 

68 TG 39,60: HPLOT 37,45 TO 

3c. 65 
;li; HPLOT 69,62 TG 66,62 TO 66. 

68; HPLOT 67,65 '0 6B,65 
1)20 HFlO; 90,65 10 99.65 TC 9^', 

6?: HPLOT 97.68 TO 93,63: HPLQT 

96.63 TO 96,67: HFLOT 97.62 TG 

93.62; HPIQT 99,63 
1130 HPLOI 126, o2 TO 126. o5: HP-O" 

129,62 TD ;29,63; hPLDl )77. 

65 TO 123,65 
1140 HPLOT 37,93 TO 39.93: HPLGT 

3^"9 TO 39,99: HPLGT 38. ^4 FO 

33.98 
1150 HPLOT 6a, 9? 70 66.93; rtPl.C' 

67,99 ;0 68.99; KFLOT 69,93 TO 

69.96 
1160 HPLOT 93,93 TO 96, P9; HPLGT 

97.96: HPLOT 99,93 TO 99.94: 
HPLOT 99.98 TD 99,99; HPLGT 

98,95: HPLOT 98, f" 
ilTO HPLGT 126,93 iO 126,99 TD 1 

■It; gc 

113U HPLOT 3a, 124 TO 36, 130; HFLO' 
40,124 TD 40.130: riPLOT 37,1 
25; HPLOT 38,126; HPLOT 39.1 
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live HPlGf 46,. 24 TO 6t,!3(i: HPLDT 

D?,;24 TO 69,130: HPLGT 67,1 

26: HPLGI 68,127 
1200 HFLGT '?7.i2i TO 9B,124: HP1.0T 

97,130 T3 98. 130: HFLO: 5l..1 

25 TD '?6,129: KPLCT 99,125 ID 

99, 129 
1210 HPLOT 126,124 TD 126, :30; HFIOT 

127,124 TD 128,124: HPLOT i: 

7,127 TD 12a, 127: KPLOT 129. 

125 TD 129,126 
1220 H[:0LOR= 3 
1230 HPLOT 172,7 TG if.2,7 TO !o2 

,37 TO 1/2,37 
1240 HPLOT 172,3 TO 163,8 TO 163 

,36 TO 172,36 
1250 KPLDT IBB, 7 TC ;7B,7 TO ITB 

1260 HPLDT lE3,d TO 179,8 10 !?9 

1270 HPLDT IBS, 7 TO IPS, 21 ID M 

8.21 
1280 HPLOT 1B7,S TO 137,20 TO 17 

9 yn 
1290 HPLOT 163,21 TO IBB, 37 
1300 HFLGT 182,21 TD 187,37 
1310 HPLGT 194,7 TO 194,37 
1320 HPlOT 195,7 TO 195.37 
1330 HPLDT 210,7 TO 201,7 TO 201 

,37 TD 210,37 
1340 HPLOT 211,20 TG 2U,8 TO 20 

2,3 TC 202, 3o TD 21;, 36 70 2 

11,23 
1350 HPLOI 212,5 IG 212,1';: HPLOT 

2;2,24 TO 212,35 
1360 HPlDT 203,21 TD 210,21 TO 2 

10.20 
1370 HPLOT 203,22 TO 210,22 TO 2 

10.23 
1380 HPLGT 227,7 TO 2lS,7 TO 2H 

77 Tn ni^ 77 

, w ] 1 U til,-.'/ 

1390 HPLOT 228,20 TO 223,3 TO 21 
9.S TD 219,36 10 228,36 TD 2 

iO,i.-:. 

1400 HPLOT 22?, 9 TO 229,19: PPLCT 

229,24 TO 229,35 
14I0 HPLOT 220,21 TO 227.21 TO 2 

27,20: HPLCT 220,22 TO 22^2 

2 TO 227,23 



1420 HPLOT 245,37 TO 245,7 TO 23 

4.7 TG 234,37 

1430 HPLOI 244,37 TG 2;4,F TO 23 

5.8 TO 235,37 

1440 HPLOT 236,21 TO 243.21: HPlOT 

i:>D,..i iu in;',.... 
1450 HPLOT 261,7 TG 251,7 ID 251 

,37 iO 2al,37 TO 261.2! !D 2 

5 . ,21 
1460 HPLOT 261,3 '0 250,3 TO 250 

.36 TO 260.36 TO 260,22 T3 2 

57,22 
1470 HPLOT 277,7 TO 267,7 TO 267 

.37 TD 277,37 
1460 hPLCl 277,3 TO 263,8 TC 26S 

.36 TO 277'. 36 
1490 HPLOI 275,21 TO 269,21; HPLOT 

275,22 TO 269,22 
!.;00 HPLDT 177,47 TO 167,4? TO ; 

67,62 TO 176,62 TO 1'6.:'6 '0 

l6',76 
15iO HPLOT 177,43 TO 166,43 TO 1 

66.6! TO 177, 61 TD 177,77 TO 

167,7:' 
1520 HPLOT 193,4? TO 183,4" TO 1 

33,77 ID 193.77 TO 173,48 
:530 HFlOT i?2,48 TO 154,48 TO . 

84.76 TO i?2,76 TG 192,43 
!54J HPLO: !?0,73 TO 192,78 TO 1 

92,79 
1550 HPLOT 191,7? 
1560 HPLOT 209,47 TO 209.77 TG i 

99.77 TO !?9,47 

1570 HPLOT 20B,4? TO 208.76 TO 1 

98,76 10 198,47 
1580 HPLDT 225,77 TO 225,^^7 TO 2 

15,47 fo 215,77 
1590 HPLOT 224,77 TO 224,48 TO 2 

14.46 TO 214.77 

1600 HPLOT 2:5,61 TO 223,61: HFIOT 

215,62 TO 223,62 
1610 HPLOI 231,77 TD 731.47 TO 2 

41.47 TO 241, a2 10 232,62 TD 

iJi,;; 

1620 HPLGT 232,61 TO 232,43 TD 2 
40,43 TG 240,6! TO 233,61 

1630 HPLCT 235,62 TO 240,77; HPlDT 
236,62 TG 241,77 



;a40 
1650 
1640 

iiSO 



HPLDT 257,47 10 247,47 ID 2 
47,77 TG 257.77 

HPLOT 257,46 TO 248.46 TO 2 
4B,76 TO 257,74 

HFLOT 255,41 TO 247,61: HPLOT 
255,42 TG 247,42 



HPLOT 273.47 TO 



TO 2 



KFLOT 273,48 TO 262,43 TO 2 
62,41 TO 273. j1 TO 273,77 TO 
243,77 

FOR R = i TO 27 
HPLOT 148,32 + R TO 2^0,32 + 
R 



1710 
1720 
1730 
1740 
1750 
1740 
1770 
1700 
1790 



iSflU 



NEXT F. 

HCGLOP= 

DRAW 14 AT 173,104 

DPAj; !5 AT 223,104 

HCflLOR= 5 

DRAy 14 AT 196,104 

DRAW 17 AT 248,104 

HCGLDR= 4 

HPLOT 176,114 TO 241,114 TO 

241.151 TC 173,151 TD ns.li 
4 

HFLOT 174,113 TO 242,113 TO 

242.152 TO 174,152 TO 174,11 



1310 KPLGT 179,114 TO 179,151 
1820 HFLOl 240,114 TO 240,151 
1630 HFLOT 174,114 TO 176,15! 
1340 PRINT OHRl i4)"BSflVE CRIBB 
AGE BOARD, AS2000,L$1FF8" 

^'^imv •«*' TABLE 



LINES 




STOMP 
CODE 


LENGTH 


100- 


210 


NB 


236 


220- 


o-i-.i 


DV 


374 


340- 


450 


DV 


387 


460- 


57C 


:P 


394 


530- 


490 


QO 


386 


700- 


BIO 


;;A 


366 


S20- 


930 


U 




940- 


1050 


n 


294 


1U60- 


1140 


YP 


542 


1170- 


1280 


OJl 


401 


1290- 


1400 


n 


30S 


1410- 


1520 


NL 


423 


1530- 


lo40 


EC 


342 


1650- 


1740 


JF 


229 


1770- 


;S40 


'5 


198 



BS SB SS Bi 5S 6B 6b 66 66 Bb 6b 

83 SS 

3S AcplEEO-ft BASIC SS 

SS 'Cribbdge Squarss' SS 

S3 fib-tbors: Bob felbitwGrtb 5E 

SS Ron Oaaiighlii! SS 

SS Copyright © 19S3 SS 

SS SoTtSids Fubhciitioni, Inc SS 

cc qq C;C gc; qc dc qc cq cq gg qc 

If you don't wish to type this program, It 
Is available on Issue #47 SoftSlde DV. 

Initialization. 

100 LD«EM: 13432: DJ = CHRt i4J 
110 PRINT CHR$ (21);: HOME : VTAB 
12: HTA3 4: PRINT 'X P I B B 
AGE S e U A R E 3' 
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120 Din N$(4i,ft;;(52),Fnil7J,F2:! 
(17),LX!5,5),MXi4,4),P9!H4), 
SXU5;,Tin5),CPi!4),P8J(4), 
P7:;i41,D:'i24,5),C:is5) 

Read in card patterns for the 
checl<ing of fifteens. 

130 FOR *1 = 1 TO 26 

140 REAB B$ 

150 FOR X2 = 1 TO 5:-;t = UlU i 

Bi,iiA'i:iain,n) - val (y 

$i: NEU U 
140 NEXT V. 
170 DATA 11111,11110,11101,11011 

,11100, 11010, 11001, 11000,011 

11,01110,01101,01100 
180 DATA 10111, 10110, 00111, OOllu 

,10011,01011,00011,10101,101 

00,10010,10001,01010,01001,0 

1 1 

SQUARES 
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Load the game board and the 
shape table. 

i?o KtiPf : FRiSiT : PRIHI Di'BlGAD 

CRIBBAGE SHAFES.AMOOO" 
200 POK£ 23:, O: POKE 233,64: SCALE^ 
l: RDT= inll = 4?200; HDtlE : 

2KI PGKE 49:35,0; GOSUB 220: GOTO 

22<; PhlNI ; PMNf Oi'SLJAD :RIBS 

AGE SOhRu" 
2:0 RETURN 
Shuffle the cards. 

2iC hOK£ : IfKERSE I VT^E 23: HTAB 
26: FRIST "SHUFFLING": fJORHAL 
: HfAE 25: FRiHT "Pre;; SFhC 
E": PfKE 4516d,0 

250 JF FEE!; 549)52: :23 TH^" 
•I -- RND ;l;: GOSC ;5u 

Deal cards. 

260 FOR > = ; TG 17 

270 y = uiT 1 R;iD (h * 52; +1: 

ir v;;X{\ - i ThEN 270 
250 Aliiii = !:F2;U;: = INT : f - 

\) :■ iJi + i:Fi:;a: = > - ip 

2;ii;:) - ii * 13 
290 NtJT " 
Zero out previous subtotals. 

300 HOME 

310 FOR :! = ; TO 4:p?r/; = 'r.n 

320 FOR X = 1 TO VJ.KI..\: = 0: NEJ" 

330 PFTORK 

Add up patterns and print fifteen 
score. 

34C c = c;;;!i *■ o^is,;; •■ c:;!2i * 

DiJS,;! i iv-v. * 0:.(-5,3! + 
C;::4i * D;,U5,4; -f C/iiG! t B 

350 p = p + 2: VTAB 21: n';AB i2: PRi;a 

360 RETORN 

Asl< for number of players. 

370 HOME ; ViAB 21: INPUT "# of 
pisy^rs !l-4/: ";N: !F N . 1 
THEN 390 



3S0 IF » V J iHEK 4:0 

3T0 GALL - !?S: PRINT Plan t 

400 FOR 2? = 1 IG ICOO: NEST 79 

410 6CiO 370 

420 FDR i = ; Tr N 

Get players' names. 

43i; HQKE ; 7ThB 21: PRi^T "-mi 
0. plsysr ";;; INPOl ": ";7t 

440 n = LEFTS {i!t,lji:j = .ES 
(S;): IF LK = THEN 43(. 

450 A; = LEFTI i»,i;:N!u; = CHRs 
\ A3C int. - 32 * I ASG lAif 
/ 96;:: IF .:< / : [flEO FOR 
V - 2 '0 Li:Hi = iiiOf Hi, ! 

,i/:Kta; = N5U; + chrj i nSC 

IhJ; T .:./ f i hoL -r;?.' / ti Hr-i." 

ASC :Ai: ; 9; ANO i-EEf, 'fA 
435) = 6;;; mi 
4cO NE:!T 
Get time limits for each player. 

470 HGHf 

430 FOR / = i TO N 

i-,v -Inb ,.'J T ,i, rhliJi ati.a, oi 

Jov(eG/cara-"'s$U! " (5-60)";: 
INPUT ■': "itPUS): IF cf:;!« 
. . so THEN 5:0 

500 IF Lp;;;^i > 4 THE« 540 

510 CALL - 1?S. ?;TAB 20 + ;: FOR 
il = 1 TO 40: PRINT " ";: tiDl 
n: VTAB 20 *• !; print "Pifs 

52( FOR 79 = 1 70 ;00D; NEH Z? 
530 VIAE 2D + f. FOR ;! = 1 TC 4 

0: PRINT •■■ ";; NEST K: GOTO 

490 
540 NE;T ). 

cc,-, i-nr-.jn ■■ii).-| 

Start of play for each player. 

5feO FOR » = 1 rO N 

570 FOR ^4 = 1 TO 4 

580 FOR SS = 1 TO 4:LXU4,n! = 

Q:^:.iU.iZ: - 0; neh v5 
590 NEil ti, 
600 HOME : yiAB 21: PRIM! "Start 

o< plav. "N$ 2); PRINT : PRINT 

"Fresi SPACE": POLE 49138,0 



ii& !F PEEK i4';i52i <■. IIS THEN 

62G POKE 4?163,C: HCCLOE= 7 

Draw square for "up" card. 

630 FOR <D = : TO 25: HFLQT :23, 
ilB i U TO 250,' IS + X6: tifU 
'■6 

i4D FOR n = 1 TO !7: HCGi.OR= 4: 
DRAS Fi:.();l: h' 224. i26: IF 

Draw "turned up" card. 

650 HCGLGR= E 

tbi) DF:;iM .F2;;iJil; + IZ) AT 22B,S 

43: SOTO 670 
o7(: IF \! = 17 THEN ^20 

Count down time, waiting for a 
card drop. 

6S0 HOME : VThB 22: rilftB 3: PRINT 

"Placs vour card ''; ;Cl = 

CP^JS): ■■■TriB 22: HTAE 2S: PRINI 
"hiiii? :Bft": i^TflB 32: PRINT 
CL 

69l for ij = 1 iO u5 

700 V = PEEK ;49152): IF V 12E 

THEN 7?u 
7!0 NEjT 73 
720 LL = CL - l; VThB 23: H'SB 30 

: ^RiNT 5FC( 6;: VlftE 23: KTAB 
3i: PRINT CL; if CL < ;■ 3 THEN 

'40 
730 CALL - IRS 

Out of time buzzer. 

740 IF CL Mi THErt 690 

750 FOR 2S = ! TO 15; 73 = PEEK 

(27: - PEE!^ ii:) + PEEK s; 

7i - FEEt (77; + PEEK l7:! 

: FOR 72 = i TO 5: NEU 72: NEJI 

760 VTfiR 22: FFINT "Viu hjis rui 
out oT tiiie'': PRINT "5 pins 
It/ po!rifs":PB-;(«) = rdXui - 

3 

770 FOR 79 = : TO 1000: NEjT 29 
750 BOTO 670 



Cfiecl< for proper card drop. 

790 POKE 49163, !i:y = '■ - 123 - 3 
2 « (0 J 224:: IF y = 27 THEM 
GOEUe 2170 

800 IF V = 27 THEN 720 

SIO IF '.' ( 65 THEN 830 

S20 IF y f 81 THEN 340 

830 y/AB 22: PRINT "Pleasr trv s 
gain" SPCi 3): CALL - 193: GOTO 
690 

Checl< if square is already oc- 
cupied. 

340 y = y - 64:71 = isT ify - i) 

/ 41 + 1:72 = V - ;2i - 1! * 
4: IF L;:(Z!,72i = O then 860 

650 CfiLL - 198: VTAB 22: PRINT 

"Square takgn--try again": SOTO 
690 

Store card in square and remove 
"up" card. 

660 Lu:i,:2i = Fi5:ui):iixai,z2i 
= F2;;(?n; hc:olqr= 7: draw 

F!;(n) AT 224,126: IRAN iF2 
•U'iA) t 131 AT 22E,143 

Remove selected letter from grid. 

370 FOR 1(2 = 1 Tfl 3: HFLOT 34 + 
ill - \: * 30, J2 i 29 + (Zl - 
1; * 31 TD 40 + (22 - 11 * 3 
0,U + 29 + !Z1 - li * 31: TEST 

n 

Draw card in square. 

680 HCOLOR= 4; DR-;!iJ Fl'O:!! AT 2 
5 + (72 - 1) * 30,26 + ni - 
'ii * 31; IF F2itili < 3 THEN 
900 

890 HCDLOR= 5 

900 DRAls! {F2:;(ili + 131 AT 29 - 
(72 - n * 30,42 f (7! •■ 1; ♦ 

3i 

910 NEH n 

Scoring by row. 

920 FOR ^7 = I TC 4 

930 riOHE : VTAB 21: PRisT "Raw " 

);7;":";:P5 ^ 0:F6 = 
940 FOR XB = i TO 5 
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950 IF '',S. -- I THEN ?7C 

960 c:ius) = l;uj(7.;:3;; 6Qtg veo 

970 CX!5) = FliU"; 

98n IF C':ii3i < = 1(1 THEN 1000 

lOOO I«EaT ts 

ivlO BDSUE \m 

1020 FOfi X3 = 1 TO 4:T^;.i;i7,ia 

;) = TXILi()(?ja)i t ilSSiti'; 

:)(7,S8Ji = S^sMU«7,;ai) + i 

; NEU iB 

1030 Ti:(Fi:;;!7;; = r:;(FiM7); + 
;; SDStis 1570 

10411 FOR X8 = 1 TO 4 
1050 iF VIM1M'\ i ) 1! THEN 1 
030 

loio ;f K.i'ihXB) '■■ > F2;:ii7) then 

1080 
lu70 F = l: SOrO 1090 
lOBC NEST iB 
1090 60S1JB 1990 
1100 eOSUB 2070 
1110 NEH s7 

Scoring by column. 

1120 FOR X7 = 1 TO 4 

1130 KOHE : VTftB 2): PRINT "CgIi! 

m ■'S7!";";:P5 = 0:?a = 
li40 FOR Xe = 1 TO ' 
1150 IF i8 = 5 THEN ll'O 
1160 CilKE) = LiUBJ/M BCTG ilS 

1170 Ciis; = FUiri 

1130 IF CiUSI < = 10 THEN 1200 

1190 CiiXB; = 10 

1200 NEH ;;B 

1210 6GSUB 1430 

1220 FOR 'B = 1 TO 4: TK! X!Xe.)(7 

)! = THiLUsB.nii T i:5:;-h:; 

(X3J7;) = SXiH^ilS,;/!) T i 

: iiEST J3 
li-iO TUF!iil7ii = TSirlili!?.) t 

l: 30S1JB 1590 
1240 FGR 29 = ! TO 4 
1250 IF L;;!):B,«7I . ; 11 THEN 1 

230 
I2i0 !F HXi;S,i:?; i - F2^il;l THEN 

1270 F = l; 60T0 1290 



12B0 NEK m 

1270 GOSUB 1990 

1300 6DSUB 2070 

1310 NEKT V 

Print penalty points. 

1320 HOME ; VTAB 22: PRIM "Pens 
Ity points; 'PSXilK?''in} = 
F9:i(si T FEvi;;; 60SUB 2100 

Print final score. 

1330 HOME : VTAE 22: PRINT "Fim 
1 SCO'S tor "NJis)': "P9UX) 
:f7:;u) = F7;:iX) + F9xis): sosUB 
2100: IF X = N THEN 13ti0 

1340 &C3UB 220 

1350 NEST i 

Display summary information. 

1360 TEH : HOME : VTfiB 5: HTAB 
:i: PRINT "** S y H H A R y 

H":54 = 64 + 1; PRINT ; HTAB 
13; PRINT "I OF GAflES: '64 

1370 VTAB 9: PRINT "Plsyer" SPCI 
;0)Us;t" SPCI j)"Accua." SPCl 
51 "Ave."; VTAB 10: PRINT " H 
aiT-e" SFC( ID'Eaw" SPCi 5)" 
Score" SPCI 5i "Score": FOR i 

1 = 1 lO 40: PSINT " = '|: NEH 

1380 FOR S = 1 rc N; V;AB (12 t 

2 * K.: PRINT miv,;: htab i 

8: PRINT P97. ()!);: HTAB 27; PRINT 
fllih}: HTAB 37: PRINT INT 
\i?rt,{X) I 64) + .5i: NEU x 
Prompt for another game. 

1390 VTAB 23; HTAB 3: PRINT "PI a 

'i anothar hand" (V/N) "; 
1400 GET Ai: IF A$ = "N" OP AEC 

(At) = 110 THEN END 
1410 IF H$ < > "'('" ANO ASC (As 

i < > 12! THEN 1400 
1420 I = PRE iOi: K0:1E ; HGR ; GOSUB 

220: B3T0 ^70 

Determine wliich card patterns to 
use to checl<; for fifteens and print 
ttie fifteen score. 

1430 ;5 = l: SOSUB 340: IF C < 15 

IHEN 1570 
1440 IF C > 15 THEN 1460 



3450 BOTD 15iC 

\i6j IF C;;;!) + Clili > iZ THEN 

1470 FOR *3 = 2 Tfl S: 50SJB 340; 

!4S0 IF U!.[2) r c:;!3) ;■ 15 THEN 

1500 
1490 FOR !(5 = 9 TO 12; GOSUB 340 

: NEXT X5 
1500 IF C;:!31 + ClU4i > 15 THEN 

1520 
1510 FDR *5 = 13 TO ii; GQ&UB 34 

o: W.1 n 
1520 IF Ci!4l i Cl;i5i ; 15 THEN 

15^0 
1530 FOR ^5 = 17 TO !?: BDSuB 34 

O: NEXT VS 
1540 FOR )(5 = 20 TD 2i: BGSUB 34 

O: NEXT XS 
1550 IF F - THEN 1570 

i5fcu ?na) - ?'iia) + PiFt = f:p 

= o;P5 = I 
1570 FOR Xfc = 1 TD i5:s;;!!:i) = 

■Mila) -- O; NEH ih 
15S0 RETURN 

Check for runs and print the run 
score. 

1590 FOR Xj = 1 70 11 

1600 IF aiiXS; s TiU5 + l! * T 

;;Uj + 2)) =0 ^HEM 1770 
IMO IF S5 = 11 60T0 li30 
lo20 IF T;:!);5 + 3i > O ;HEN 1710 



1630 OfJ !T^*5) + Ii(^5 i li + 7 

;;i;5 + 2; - 2) SO'O 1640, ls5 

0, 1660 
1640 F = 3: 60TD 1760 
1650 F = 6: SOTO 1760 
1660 IF T:;a5) = 3 goto 1700 
1670 IF T;:i:(5 + l; = 3 goto 1700 
16S0 IF Tims t 2) = 3 GOTO i70n 
1690 F = 12: SOTO TiO 
1700 F = 9: GOTO 1760 
1710 IF T'KKS + 4) / THEN 175U 
1720 ON iT:;!s5! t TliiJa + ;) + T 

■:a5 + 2: + TUj5 + 3) - 3i GOTO 

1730,1740 
1730 P = 4: GOTO 1760 

V. CRIBBAGE SQUARES 
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1740 p = 8: GOTO 1740 

1750 P = 5 

i760 VTAB 21 + P5: HTM 12: PRINT 
"RiinE -"FlPPVij; = P9'.a; + 
P;P6 = P6 + P:p = 0;F5 = P5 + 
l: SOTO 17B0 

1770 NE?T n 

Check for pairs and print the pair 
score. 

1780 FOR X5 = 1 TO 13 

1790 ON VLmi + 1 SOTO 1340,164 

0,1000,1310,1320 
laOO P = F t 2: GOTO 1830 
JSIO P = F <■ 6: GOTO 1330 
1820 P = P + 12 
1830 OTAE 21 + P5: HTAB 12: PRINT 

"Fdirs-'F 
1840 NEH ij 
1350 IF F = THEN 1370 
1860 PPIU) = F91:(Ji * P:P6 = P6 T 

F:P = 0:P5 = P5 + 1 

Check for flushes and print the 
flush score. 

1370 K! = 1 

1380 FOR »5 = 1 TO 4 

1B90 IF S;;U5! < > 4 THEN J930 

1900 Kl = 2 

1910 IF F2;:il7) ! > );5 ^HEK 153 

ij 

1930 liEU X5 

1940 ON Kl GOTO 1930,1950,1960 

1950 F = 4: GOTO 1970 

1960 P = 5 

1970 HTSB 12: PRINT "F!u;h-"F;:F 

n\i\ = ppiiXi + r:P6 = P6 + 
f:F = o:P5 = P5 + 1 

1980 RETORN 

Check for nibs and print the nib 
score. 

1990 IF Fnil7i < > 11 THEN 201 



2000 P = 2: GOTO 2O20 

2010 IF P = THEN 2060 

2020 IF P5 < 4 THEM 2040 

2030 VTAB 21: HTAB 24: GOTO 2050 
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;050 PRINT "Nibs -"P;:Pv;;()!; = p 
r!Si\ + p;pf. = F6 + f:f = c: 

F5 = F5 + 1 
2060 RETURN 

Check for nothing and print zero 
score. 

2070 IF Fd ) THEN 20?0 
2080 ytflB 21; HTAe 12; PRINT "lio 
tMng" 

Print total score for hand. 

2090 VTflB 24: hTAB l: PRINT "Tut 
al: "Pi; 

Display score until timer ends or 
key is hit. 

2100 POKE 491f.B,0 

2110 FOR Z? = 1 TO 100 

2120 y = FEEl; (49152); ;F V < 12 

B THEN 2150 
2130 V = v^ - 128; IP V = 27 THEl! 

SGEUB 2170 
2140 POKE 49163,0; GOTO 2;i0 
2150 NE2T Yi 
2160 RETURN 
Escape key game pause. 

2170 F0|!:E 49168,0 

2130 "TAB 23: HTAE 26: PRINT "Pr 

es5 SPACE": HTAB 23: PRINT " 

to rsEUffie action": 
2190 IF PEEK i49152) < 12S THEN 

2190 
2200 VTAB 23: HTAB 25: PRINT SPCi 

131: OTAB 24: HTAB 23: FRINl 
SPC; lil 
2210 POKE 49i6B,o: RETURN 



STOMP ^vrtif/A . 
<Vi.»iv 'w*^ TABLE 



LINES 



STOMP 
CODE LENGTH 



lO- 21C 



4i'3 



4fc0- 



700- 


PIO 


GJJ 


320- 


930 


CI 


a.ii':_ 


1050 


li 1 


1040- 


1170 


iS 


1130- 


1290 


TV 


1 "i,":'!- 


1410 


Nv 


1420- 


1530 


.OP; 


1540- 


1650 


sw 


1660- 


r7c 


zc 


17S0- 


1B90 


FN 


1900- 


2010 


FA 


2020- 


2130 


Bri 


2140- 


2210 


iB 



444 



Id'"! 

i p -' 

1 JD 
1 1u 
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Like SoftSide? Wait 'til you've seen our BEST! 

The Best 
of SoftSide! 




For the past four years, SoftSide Magazine has been bringing Apple® , Atari® , and 
TRS-80® owners the best in BASIC software. But now you can do even better... The 
Best of SoftSide. From all our back issues, we've selected the most useful... the most 
entertaining... the most fun programs SoftSide has ever published. 

The Best of SoftSide is available in three versions... one for Apple, Atari, and 
TRS-80. Each contains page after page of BASIC code for adventures, simulations, 
practical applications, and much more. 

To order your copy of The Best of SoftSide, fill out the coupon, and mail it 
along with $14.95 to SoftSide, 10 Northern Blvd., Northwood Executive park, 
Amherst, New Hampshire 03031. 



The Best of SoftSide 

n YES... I want to en|ov the best progriims — Games, Utilities, 
Adventures — from SoftSide Magazines past Please rush mv 
copies of The Best of SoftSide to 

Name 

Address 

City 



Here's my order For The Best of SoftSide 



_State_ 



-Zip- 




Computer 


Quantity 
Book Only 
$14.95 ea. 


Quantity 
Disk Only 
$35.00 ea. 


Quantity 
Book plus Disk 
$49.95 ea. 


Apple'^ 








Atari® 








TRS-BO® Mod 1 








TRS-eO^Mod III 








TOTAL COPIES 


©$14.95 


(8S35.00 


@ $49.95 



I'm paying by: 

n Checks 

D Money Order # 
D VISA 
n MasterCard 
Total Enclosed $ 



(Foreisn order please include J5 postage PAY 
IN USA FUNDS ONLY.) 



VISA/MasterCard #_ 
Name of Cardholder_ 
Signature 



_Exp. Date_ 
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" General Information ^ 

These are the standard procedures for the programs published by 
SoftSide Publications, Inc. Sometimes, a particular program does not 
lend itself to these procedures. Always read the specific instructions 
accompanying a program. They will instruct you if there are any 
variances from the following procedures. Also, bacl< Issues of Soft- 
Side fvlagazlne may differ in some details. 

x*»W/ -. STOMP ^vrtw, 

'-viavv •«•!' TABLE l>X^v •"'^ 



STOMP Tables 

At the conclusion of each SoftSide listing, we include a STOMP 
Table. STOMP for the Atari appeared In Issue #45. STOMP supersedes 
SWAT as SoftSide's standard debugging tool to help those who type 
BASIC programs from the pages of SoftSide Selections. If you don't 
have STOMP, we'll send you a free reprint. Send a business-sized, self- 
addressed, stamped envelope to: 

SoftSide Publications, Inc. 

Department STOMP 

10 Northern Blvd. 

Northwood Executive Park 

Amherst, NH 03031 
Be sure to tell us what kind of computer you have. 



Line Listings 



= — = IBM^C USERS 

The line listings in this booklet appear In a 40-column format. If you 
type LIST when your computer is displaying 40-column text (WIDTH 
40), your screen should display exactly what appears In the printed 
listing. Be sure to use STOMP on your program, and get the free 
reprint if you don't have STOMP. 

/ 




APPLE® USERS 

The line listings in this booklet are in standard Applesoft® format, 
and they appear exactly as they should on your screen when you type 
LIST. Beginning with Issue #45, Applesoft listings in SoftSide Selec- 
tions may have lower-case characters in them. If you have an Apple lie 
or an Apple II with a lower-case adapter, you may type these listings 
exactly as they appear. If you have an Apple II without lower case, 
simply type the lower-case characters as capitals. STOMP, SoftSide's 
debugging utility, Ignores the case of characters, so both ways of typ- 
ing programs result in the same STOMP Table. 

Things to watch out for when typing are: 
• Lower-case characters: The Apple lie and some Apple ll's haveV 



flower case. Many programs we publish contain lower case. Since/ 
STOMP, SoftSide's debugging utility, ignores the case of characters, 
you may use capital letters if you so desire or if your Apple doesn't 
have lower case. 

• REM and DATA statements: STOMP, like Applesoft, ignores REM 
statements. You do not have to type the text of REMs. STOMP also ig- 
nores the space or spaces between the keyword DATA and the first 
data element. Type numbers and strings In DATA statements exactly 
as they appear in the published listing. 

• Spaces between quotes: Applesoft is a bit eccentric about how it 
shows these. Just list the line after you type it, and compare it to the 
printed listing. 

Also, be sure to use STOMP on your program, and get the free 
reprint if you don't have STOMP. 



A 



ATARIUSERS 



• The line listings in this booklet are in standard 38-column format, 
with special conventions for representing unprintable characters: 

• You must type underlined characters, including blank spaces, in in- 
verse video. 

• When graphics or control characters are Included in a string (be- 
tween quotation marks), a nearby REM statement will make note of it; 
in such cases, graphics characters appear as the corresponding 
lower-case letters, and control characters appear as the correspond- 
ing unshifted key symbols. For example: The lower-case letter s 
represents a graphic cross, which you type by pressing the S key while 
holding down the CTRL key; the = sign represents CTRL-down-arrow, 
which you type by pressing and releasing the ESC key, then pressing 
the = key while holding down CTRL For more information about 
entering control characters, refer to Appendix F and the back cover of 
your Atari Reference Manual. 

There are two exceptions to our above convention: A clear-screen 
character (ESC SHIFT-CLEAR) appears in our listings as a right-hand 
brace, which looks like this: } . The other exception Is that a shifted 
= sign appears as a broken, vertical line: j. 

Occasionally, a program will demand that we vary from these con- 
ventions. In such a case, a nearby REM statement or the program's In- 
troductory article will clearly note the special instructions. 



Copyright © 1983 SoftSide Publications, Inc. 

These programs are for your personal use only. Please resist the 
urge to give away copies of copyrighted material. 



FRONT RUNNER 



CONCENTRATION 

Your memory will get a serious workout 
with this computer version of the televi- 
sion game of the same name. How well 
can you concentrate? 

AT THE CODFISH BALL 

Your skill and timing are all important in 
this arcade-style shooting gallery. 

CRIBBAGE SQUARES 

Card game lovers, here is another fine 
game to play as solitaire or with up to 
three other players. 



SOFTSIDE PUBLICATIONS, INC. 

Amherst, New Hampshire 



